# Required fxns: 'srs ratio2', 'srs ratio mean2', and 'srs ratio total2'
# Version 2 of the ratio fnxs allows for unknown N
# you should only do this when it is reasonably assured that N is large

oranges=read.csv('http://webpages.uidaho.edu/~renaes/Data/orange sugar.csv',header=T)
View(oranges)
# a plot is always nice but the ratio fxns will provide one
xbar=with(oranges,mean(weight))

# ratio
with(oranges,srs.ratio2('Oranges',weight,sugar,10,xbar))
with(oranges,srs.muhaty2('Oranges',weight,sugar,10,xbar))
with(oranges,srs.tauhaty2('Oranges',weight,sugar,10,1800))